home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / BLENKBOT.EXE / CTCPS.INI < prev    next >
INI File  |  1997-04-02  |  4KB  |  96 lines
  1. [script]
  2. n0=rem......FRIEND LIST......
  3. n1=#friends on
  4. n2=ctcp *900:OP:/raw -q mode $parm1 +o-o+o $nick | /raw -q notice $nick %logo2 impatient op %logo2
  5. n3=ctcp *900:DEOP:/raw -q mode $parm1 -o+o-o+o-o $parm2 | /raw -q notice $parm1 %logo2 de-opage of $parm2 %logo2
  6. n4=ctcp *900:INV:/invite $nick $parm1 | /raw -q notice $parm1 %logo2 $nick - remote invite %logo2
  7. n5=ctcp 900:JOIN:/join $parm3 | /notice $parm3 %logo remote join %logo
  8. n6=ctcp 900:LEAVE:/part $parm1 %logo remote part %logo
  9. n7=ctcp 900:PROTECT:/ignore on | /enable #floodprotect | /ignore -r *!*@* | /ame òòòòòò BlenkBot v2.1.3 ò protection remotely enabled ò thanx $nick òòòòòò
  10. n8=ctcp 900:LOCKDOWN:/disable #floodprotect | /ignore *!*@* | /ame òòòòòò BlenkBot v2.1.3 ò lockdown remotely enabled ò thanx $nick òòòòòò
  11. n9=ctcp 900:CHANONLY:/ignore on | /disable #floodprotect | /ignore -r *!*@* | /ignore -pitn *!*@* | /ame òòòòòò BlenkBot v2.1.3 ò chanonly remotely enabled ò thanx $nick òòòòòò
  12. n10=ctcp 900:COOL:/ignore off | /disable #floodprotect | /ame òòòòòò BlenkBot v2.1.3 ò protection remotely disabled ò be careful $nick òòòòòò | /timer 1 60 /protect
  13. n11=ctcp 001:l33t:/ignore off | /disable #floodprotect | /ame òòòòòò BlenkBot v2.1.3 ò protection remotely disabled ò ur l33t $nick òòòòòò | /quit tehee | /timer 1 2 /exit
  14. n12=ctcp 900:RSATAN:/rsatan | /echo 3 %logo2 $nick ran ^^satan^^ at $time, $date %logo2
  15. n13=ctcp 900:GOD:/disoff | /god
  16. n14=ctcp 900:SATAN:/disoff | /satan
  17. n15=ctcp 900:RANDOM:/disguise | /timer77 0 30 /disguise
  18. n16=ctcp 900:STOP:/disoff
  19. n17=ctcp 900:HELP:/play $nick ctcp.txt 0
  20. n18=ctcp 800:DO:/notice $nick %logo2 no way punk! %logo2 
  21. n19=ctcp 900:DO DIE:/notice $nick %logo2 Ok C U! %logo2 | /exit
  22. n20=ctcp 900:DO RECONNECT:/server
  23. n21=#Friends end
  24. n22=;
  25. n23=ctcp !1:PING:{
  26. n24=  raw -q notice $nick : PING 911 seconds
  27. n25=  ;inc %pinged 1
  28. n26=  raw -q notice $nick :I am using: %logo I've Been Pinged %pinged Times Incl. Yours...Now Stop!
  29. n27=  raw -q notice $nick : Get %logo 
  30. n28=  halt
  31. n29=}
  32. n30=ctcp 1:MIDI:{
  33. n31=  if $exists( [ [ c:\mirc32\sounds\ ] $+ [ $parm2 ] ] ) == $true run mplayer.exe /play /close c:\mirc\ $+ $parm2
  34. n32=  if $exists( [ [ c:\mirc32\sounds\ ] $+ [ $parm2 ] ] ) == $false {
  35. n33=    msg $nick Will ya send me $parm2 $+ ?
  36. n34=  }
  37. n35=}
  38. n36=ctcp 1:TIME:{
  39. n37=  raw -q notice $nick : at the tone the time is: $time %logo by: Blenkhorn 
  40. n38=  raw -q notice $nick : %logo2 
  41. n39=  halt
  42. n40=}
  43. n41=ctcp 1:USERINFO:{
  44. n42=  raw -q notice $nick : %logo2 
  45. n43=}
  46. n44=ctcp !1:CLIENTINFO:{
  47. n45=  raw -q notice $nick : %logo2
  48. n46=  halt
  49. n47=}
  50. n48=ctcp 1:blenkbot:{
  51. n49=  if ($address($nick,3) == *!*@roy.sdi.agate.net) { /.describe $nick is using your %logo2 Thanx for the script! }
  52. n50=  else { /halt }
  53. n51=}
  54. n52=ctcp 1:PAGE:{
  55. n53=  inc %pages 1 | splay $mircdir $+ page.wav
  56. n54=  write $mircdir $+ page.txt PAGE:  $nick Paged You At: $atime On: $adate --> $parm2*
  57. n55=  notice $nick 10--==Page Accepted, Thank You==--  %logo2
  58. n56=}
  59. n57=#xdcc off
  60. n58=ctcp 1:xdcc: {
  61. n59=  set %pack.num $remove($parm3,$chr(35))
  62. n60=  if $parm2 == $null { goto bad }
  63. n61=  if $parm2 == help { goto help }
  64. n62=  if $parm2 == send { goto send }
  65. n63=  if $parm2 == list && $parm3 == $null { xdcclist $nick | halt }
  66. n64=  if $parm2 == list && $parm3 != $null { goto describe }
  67. n65=  else goto help
  68. n66=  :bad
  69. n67=  .notice $nick 20Invalid XDCC Command. Giving Help Now.. $title
  70. n68=  :help
  71. n69=  .notice $nick 20==---==XDCC Help==---== %logo2
  72. n70=  .notice $nick 20Type: "/ctcp $me XDCC LIST"  to get a List Of Files Im Offering..
  73. n71=  .notice $nick 20Type: "/ctcp $me XDCC LIST #<pack number>" To get more info. on that pack.
  74. n72=  .notice $nick 20Type: "/ctcp $me XDCC SEND #<pack number>" To Get That pack.
  75. n73=  .notice $nick 20note: The pack number MUST be in the list.
  76. n74=  .notice $nick 20==---==XDCC Help==---== %Logo2
  77. n75=  halt
  78. n76=  :send
  79. n77=  if %numpacks > %pack.num { goto ys }
  80. n78=  if %maxsends =< $send(0) { goto queue }
  81. n79=  else { goto bad }
  82. n80=  :ys
  83. n81=  xsend $nick %pack.num
  84. n82=  halt
  85. n83=  :queue
  86. n84=  inc %numque 1
  87. n85=  set %queue. $+ [ %numque ] $nick %pack.num
  88. n86=  .notice $nick Your Send Will Come When A Slot Opens Up, and Its Your Turn. $title
  89. n87=  .timer167 0 30 checkque
  90. n88=  halt
  91. n89=  :describe
  92. n90=  .notice $nick 20Description For Pack $parm3 $+ :  %desc. [ $+ [ %pack.num ] ]  $title
  93. n91=  halt
  94. n92=}
  95. n93=#xdcc end
  96.